Shareware Super Platinum 8

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SAC271.ZIP;1 / FOXPRO.ZIP / SACPR3.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1993-08-27 | 16.1 KB | 328 lines

[\<1] - 80 Column Variable Star Report [\<2] - 132 Column Variable Star Report [\<3] - Word for Windows (Variable Star Data File) [\<4] - 80 Column Variable Star Log Report [\<Q] - Quit to report menu DEACTIVATE POPUP SACPR3 : : Print cPRNf WINDOW NFORM_SCR U2000 TIRION DEXDDATE DDATE_1 EXDDATE_2 CTIME CNOTES DEXAZ NINDEX NORDER NPR_SS YESNO CPR_GIF CPR_PRN OPTION CFILE CPR_WFW PRINT : : 99:99:99 Ascending Descending8 SET ORDER TO nINDEX &cORDER INDEX ON UPPER(CLUBS)+UPPER(NAME) TO FOR CLUBS <> SPACE(10) .AND. mNAME$UPPER(NAME) .AND. mSTAR$UPPER(STAR) .AND. mTYPE=TYPE .AND. CONST=mCONST .AND. RA-nFAC<=mRA.AND.mRA<=RA+nFAC .AND. DEC-nFAC<=mDEC.AND.mDEC<=DEC+nFAC .AND. MAG1-nFAC<=mMAG1.AND.mMAG1<=MAG1+nFAC .AND. MAG2-nFAC<=mMAG2.AND.mMAG2<=MAG2+nFAC .AND. PERIOD-nFAC<=mPERIOD.AND.mPERIOD<=PERIOD+nFAC .AND. mSPEC$SPEC .AND. mCLUBS$UPPER(CLUBS) .AND. mNOTES$UPPER(NOTES) SET FILTER TO &cD .AND. dDATE_1<=LOG_DATE .AND. LOG_DATE<=dDATE_2 SET FILTER TO &cD Press [ESC] to return to main menu... cVBL_INDEXf CTIME DDATE M_SCR CORDER NORDER CVBL_INDEXNINDEX FNFILE DEXPLSWAIT FNTALK _INDEXNAME MNAME MSTAR MTYPE CONST MCONST MMAG1 MMAG2 PERIOD MPERIOD MSPEC MU2000 U2000 MTIRION TIRION CLUBS MCLUBS CNOTES MNOTES VBLLOG DDATE_1 DDATE_2 PRINT1 PRINT2 PRINT3 PRINT4 CDATAPATH NFORM_NDX ?? &cPR_DEF bESC =.T. ?? &cPR_DEF ?? &cPR_BON Page F 80 Column Variable Star Report Date is Variable Star Filter is ?? &cPR_BOFF Name: Star: Type of Object: M->TYPE Constellation : M->CONST L.S.T.: Right Ascension : F 99.9999c Azimuth (DDD.MMSS):F 999.9999c Date: Declination :F 999.9999c Altitude (DDD.MMSS):F 999.9999c Time: Maximum Magnitude: F Minimum Magnitude: Period: F Spectrum: U 2000 : Clubs: Tirion 2000: Notes: cPRNf * * * Report Interrupted by User * * * ?? &cPR_DEF Number of Printed Records = F CFILE NCOUNT NPAGE NPR_MAX NRPT_ROW NRPT_MAX INDEXDDATE DEXLST CTIME INDEXDMS AL_AZ U2000 FNU2000 TIRION FNTIRION MU2000 MTIRION CVBL_NAME FLD_DES CONST PERIOD CLUBS T_ROW NOTES CGIFPATH CPR_GIF PRINT_GIF THERM ?? &cPR_CON bESC =.T. ?? &cPR_BON Page F 132 Column Variable Star Report Date is Variable Star Filter is RA Max Tirion Name Star Type Const Dec. Min Per Spec U2000 Clubs ----------------- ----------------- ----- --- ------- ---- -------- --- ---------------- ---------- ?? &cPR_BOFF F Notes: * * * Report Interrupted by User * * * ?? &cPR_DEF Number of Printed Records = F CFILE NCOUNT NPAGE NPR_MAX NRPT_ROW NRPT_MAX INDEXDDATE DEXLST CTIME INDEXDMS AL_AZ U2000 FNU2000 TIRION FNTIRION MU2000 MTIRION CVBL_NAME CONST PERIOD CLUBS T_ROW NOTES THERM CONST PERIOD U2000 TIRION NOTES CLUBS bESC =.T. Number of Printed Records = F CFILE NCOUNT DDATE CTIME NDEXCLST DEXNRA INDEXNAZ AL_AZ U2000 FNU2000 TIRION FNTIRION MU2000 MTIRION CONST PERIOD NOTES NNOTES CLUBS THERM ?? &cPR_DEF bESC =.T. ?? &cPR_DEF ?? &cPR_BON Page F 80 Column Variable Star Log Date is Variable Star Filter is ?? &cPR_BOFF Name: Star: Type of Object: M->TYPE Constellation : M->CONST L.S.T.: Right Ascension : F 99.9999c Azimuth (DDD.MMSS):F 999.9999c Date: Declination :F 999.9999c Altitude (DDD.MMSS):F 999.9999c Time: Maximum Magnitude: F Minimum Magnitude: Period: F Spectrum: U 2000 : Clubs: Tirion 2000: Log Date: F Log Time: Log Date: F Log Time: Notes: cPRNf * * * Report Interrupted by User * * * ?? &cPR_DEF Number of Printed Records = F CFILE NCOUNT NPAGE NPR_MAX NRPT_ROW NRPT_MAX NDEXDDATE DEXLST CTIME INDEXDMS CNAME CSTAR AL_AZ U2000 FNU2000 TIRION FNTIRION MU2000 MTIRION VBLLOG CVBL_NAME FLD_DES CONST PERIOD CLUBS LOG_DATE LOG_TIME T_ROW NOTES CGIFPATH CPR_GIF PRINT_GIF THERM PRINT PRINT1 PRINT2 PRINT3 PRINT4 D:\SKY\SAC\ SACPR3.FXP D:\SKY\SAC\SACPR3.PRG